Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume24/gnucalc/part13

Text File | 1991-10-29 | 55.3 KB | 1,207 lines

Newsgroups: comp.sources.misc
From: [e-mail] (David Gillespie)
Subject:  v24i061:  gnucalc - GNU Emacs Calculator, v2.00, Part13/56
Message-ID: <[e-mail]>
X-Md4-Signature: 386ca433157fa145045e2b96f3ea6866
Date: Tue, 29 Oct 1991 23:01:47 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (David Gillespie)
Posting-number: Volume 24, Issue 61
Archive-name: gnucalc/part13
Environment: Emacs
Supersedes: gmcalc: Volume 13, Issue 27-45

---- Cut Here and unpack ----
#!/bin/sh
# this is Part.13 (part 13 of a multipart archive)
# do not concatenate these parts, unpack them in order with /bin/sh
# file calc-embed.el continued
#
if test ! -r _shar_seq_.tmp; then
    echo 'Please unpack part 1 first!'
    exit 1
fi
(read Scheck
 if test "$Scheck" != 13; then
    echo Please unpack part "$Scheck" next!
    exit 1
 else
    exit 0
 fi
) < _shar_seq_.tmp || exit 1
if test ! -f _shar_wnt_.tmp; then
    echo 'x - still skipping calc-embed.el'
else
echo 'x - continuing file calc-embed.el'
sed 's/^X//' << 'SHAR_EOF' >> 'calc-embed.el' &&
X              (goto-char base)
X              (insert-before-markers
X               calc-embedded-open-mode
X               "[" header " " mname ": "
X               (prin1-to-string (car values)) "]"
X               calc-embedded-close-mode))))
X          (setq vars (cdr vars)
X            values (cdr values)))))))
)
X
(defun calc-embedded-var-change (var &optional buf)
X  (if (symbolp var)
X      (setq var (list 'var
X              (if (string-match "\\`var-.+\\'"
X                    (symbol-name var))
X              (intern (substring (symbol-name var) 4))
X            var)
X              var)))
X  (save-excursion
X    (let ((manual (not calc-auto-recompute))
X      (bp calc-embedded-active)
X      (first t))
X      (if buf (setq bp (memq (assq buf bp) bp)))
X      (while bp
X    (let ((calc-embedded-no-reselect t)
X          (p (and (buffer-name (car (car bp)))
X              (cdr (car bp)))))
X      (while p
X        (if (assoc var (aref (car p) 10))
X        (if manual
X            (if (aref (car p) 11)
X            (progn
X              (aset (car p) 11 nil)
X              (if (aref (car p) 9)
X                  (calc-embedded-var-change (aref (car p) 9)))))
X          (set-buffer (aref (car p) 0))
X          (if (equal (buffer-substring (aref (car p) 2)
X                           (aref (car p) 3))
X                 (aref (car p) 6))
X              (let ((calc-embedded-info nil))
X            (or calc-embedded-quiet
X                (message "Recomputing..."))
X            (setq first nil)
X            (calc-wrapper
X             (set-buffer (aref (car p) 0))
X             (calc-embedded-update (car p) 14 t nil)))
X            (setcdr (car bp) (delq (car p) (cdr (car bp))))
X            (message
X             "(Tried to recompute but formula was changed or missing.)"))))
X        (setq p (cdr p))))
X    (setq bp (if buf nil (cdr bp))))
X      (or first calc-embedded-quiet (message ""))))
)
X
X
X
X
X
SHAR_EOF
echo 'File calc-embed.el is complete' &&
chmod 0644 calc-embed.el ||
echo 'restore of calc-embed.el failed'
Wc_c="`wc -c < 'calc-embed.el'`"
test 41524 -eq "$Wc_c" ||
    echo 'calc-embed.el: original size 41524, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= calc-ext.el ==============
if test -f 'calc-ext.el' -a X"$1" != X"-c"; then
    echo 'x - skipping calc-ext.el (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
echo 'x - extracting calc-ext.el (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'calc-ext.el' &&
;; Calculator for GNU Emacs version 2.00, part II
;; Copyright (C) 1990, 1991 Free Software Foundation, Inc.
;; Written by Dave Gillespie, [e-mail].
X
;; This file is part of GNU Emacs.
X
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY.  No author or distributor
;; accepts responsibility to anyone for the consequences of using it
;; or for whether it serves any particular purpose or works at all,
;; unless he says so in writing.  Refer to the GNU Emacs General Public
;; License for full details.
X
;; Everyone is granted permission to copy, modify and redistribute
;; GNU Emacs, but only under the conditions described in the
;; GNU Emacs General Public License.   A copy of this license is
;; supposed to have been given to you along with GNU Emacs so you
;; can know your rights and responsibilities.  It should be in a
;; file named COPYING.  Among other things, the copyright notice
;; and this notice must be preserved on all copies.
X
X
X
(provide 'calc-ext)
X
(setq calc-extensions-loaded t)
X
;;; This function is the autoload "hook" to cause this file to be loaded.
;;;###autoload
(defun calc-extensions ()
X  "This function is part of the autoload linkage for parts of Calc."
X  t
)
X
;;; Auto-load calc.el part, in case this part was loaded first.
(if (fboundp 'calc-dispatch)
X    (and (eq (car-safe (symbol-function 'calc-dispatch)) 'autoload)
X     (load (nth 1 (symbol-function 'calc-dispatch))))
X  (if (fboundp 'calc)
X      (and (eq (car-safe (symbol-function 'calc)) 'autoload)
X       (load (nth 1 (symbol-function 'calc))))
X    (error "Main part of Calc must be present in order to load this file.")))
X
(require 'calc-macs)
X
X
;;; The following was made a function so that it could be byte-compiled.
(defun calc-init-extensions ()
X
X  (setq gc-cons-threshold (max gc-cons-threshold 250000))
X
X  (define-key calc-mode-map ":" 'calc-fdiv)
X  (define-key calc-mode-map "\\" 'calc-idiv)
X  (define-key calc-mode-map "|" 'calc-concat)
X  (define-key calc-mode-map "!" 'calc-factorial)
X  (define-key calc-mode-map "C" 'calc-cos)
X  (define-key calc-mode-map "E" 'calc-exp)
X  (define-key calc-mode-map "H" 'calc-hyperbolic)
X  (define-key calc-mode-map "I" 'calc-inverse)
X  (define-key calc-mode-map "J" 'calc-conj)
X  (define-key calc-mode-map "L" 'calc-ln)
X  (define-key calc-mode-map "N" 'calc-eval-num)
X  (define-key calc-mode-map "P" 'calc-pi)
X  (define-key calc-mode-map "Q" 'calc-sqrt)
X  (define-key calc-mode-map "R" 'calc-round)
X  (define-key calc-mode-map "S" 'calc-sin)
X  (define-key calc-mode-map "T" 'calc-tan)
X  (define-key calc-mode-map "U" 'calc-undo)
X  (define-key calc-mode-map "X" 'calc-call-last-kbd-macro)
X  (define-key calc-mode-map "o" 'calc-realign)
X  (define-key calc-mode-map "p" 'calc-precision)
X  (define-key calc-mode-map "w" 'calc-why)
X  (define-key calc-mode-map "x" 'calc-execute-extended-command)
X  (define-key calc-mode-map "y" 'calc-copy-to-buffer)
X
X  (define-key calc-mode-map "(" 'calc-begin-complex)
X  (define-key calc-mode-map ")" 'calc-end-complex)
X  (define-key calc-mode-map "[" 'calc-begin-vector)
X  (define-key calc-mode-map "]" 'calc-end-vector)
X  (define-key calc-mode-map "," 'calc-comma)
X  (define-key calc-mode-map ";" 'calc-semi)
X  (define-key calc-mode-map "`" 'calc-edit)
X  (define-key calc-mode-map "=" 'calc-evaluate)
X  (define-key calc-mode-map "~" 'calc-num-prefix)
X  (define-key calc-mode-map "<" 'calc-scroll-left)
X  (define-key calc-mode-map ">" 'calc-scroll-right)
X  (define-key calc-mode-map "{" 'calc-scroll-down)
X  (define-key calc-mode-map "}" 'calc-scroll-up)
X  (define-key calc-mode-map "\C-k" 'calc-kill)
X  (define-key calc-mode-map "\M-k" 'calc-copy-as-kill)
X  (define-key calc-mode-map "\C-w" 'calc-kill-region)
X  (define-key calc-mode-map "\M-w" 'calc-copy-region-as-kill)
X  (define-key calc-mode-map "\C-y" 'calc-yank)
X  (define-key calc-mode-map "\C-_" 'calc-undo)
X  (define-key calc-mode-map "\C-xu" 'calc-undo)
X  (define-key calc-mode-map "\M-\C-m" 'calc-last-args)
X
X  (define-key calc-mode-map "a" nil)
X  (define-key calc-mode-map "a?" 'calc-a-prefix-help)
X  (define-key calc-mode-map "aa" 'calc-apart)
X  (define-key calc-mode-map "ab" 'calc-substitute)
X  (define-key calc-mode-map "ac" 'calc-collect)
X  (define-key calc-mode-map "ad" 'calc-derivative)
X  (define-key calc-mode-map "ae" 'calc-simplify-extended)
X  (define-key calc-mode-map "af" 'calc-factor)
X  (define-key calc-mode-map "ag" 'calc-poly-gcd)
X  (define-key calc-mode-map "ai" 'calc-integral)
X  (define-key calc-mode-map "am" 'calc-match)
X  (define-key calc-mode-map "an" 'calc-normalize-rat)
X  (define-key calc-mode-map "ap" 'calc-poly-interp)
X  (define-key calc-mode-map "ar" 'calc-rewrite)
X  (define-key calc-mode-map "as" 'calc-simplify)
X  (define-key calc-mode-map "at" 'calc-taylor)
X  (define-key calc-mode-map "av" 'calc-alg-evaluate)
X  (define-key calc-mode-map "ax" 'calc-expand)
X  (define-key calc-mode-map "aA" 'calc-abs)
X  (define-key calc-mode-map "aF" 'calc-curve-fit)
X  (define-key calc-mode-map "aI" 'calc-num-integral)
X  (define-key calc-mode-map "aM" 'calc-map-equation)
X  (define-key calc-mode-map "aN" 'calc-find-minimum)
X  (define-key calc-mode-map "aP" 'calc-poly-roots)
X  (define-key calc-mode-map "aS" 'calc-solve-for)
X  (define-key calc-mode-map "aR" 'calc-find-root)
X  (define-key calc-mode-map "aT" 'calc-tabulate)
X  (define-key calc-mode-map "aX" 'calc-find-maximum)
X  (define-key calc-mode-map "a+" 'calc-summation)
X  (define-key calc-mode-map "a-" 'calc-alt-summation)
X  (define-key calc-mode-map "a*" 'calc-product)
X  (define-key calc-mode-map "a\\" 'calc-poly-div)
X  (define-key calc-mode-map "a%" 'calc-poly-rem)
X  (define-key calc-mode-map "a/" 'calc-poly-div-rem)
X  (define-key calc-mode-map "a=" 'calc-equal-to)
X  (define-key calc-mode-map "a#" 'calc-not-equal-to)
X  (define-key calc-mode-map "a<" 'calc-less-than)
X  (define-key calc-mode-map "a>" 'calc-greater-than)
X  (define-key calc-mode-map "a[" 'calc-less-equal)
X  (define-key calc-mode-map "a]" 'calc-greater-equal)
X  (define-key calc-mode-map "a." 'calc-remove-equal)
X  (define-key calc-mode-map "a{" 'calc-in-set)
X  (define-key calc-mode-map "a&" 'calc-logical-and)
X  (define-key calc-mode-map "a|" 'calc-logical-or)
X  (define-key calc-mode-map "a!" 'calc-logical-not)
X  (define-key calc-mode-map "a:" 'calc-logical-if)
X  (define-key calc-mode-map "a_" 'calc-subscript)
X  (define-key calc-mode-map "a\"" 'calc-expand-formula)
X
X  (define-key calc-mode-map "b" nil)
X  (define-key calc-mode-map "b?" 'calc-b-prefix-help)
X  (define-key calc-mode-map "ba" 'calc-and)
X  (define-key calc-mode-map "bc" 'calc-clip)
X  (define-key calc-mode-map "bd" 'calc-diff)
X  (define-key calc-mode-map "bl" 'calc-lshift-binary)
X  (define-key calc-mode-map "bn" 'calc-not)
X  (define-key calc-mode-map "bo" 'calc-or)
X  (define-key calc-mode-map "bp" 'calc-pack-bits)
X  (define-key calc-mode-map "br" 'calc-rshift-binary)
X  (define-key calc-mode-map "bt" 'calc-rotate-binary)
X  (define-key calc-mode-map "bu" 'calc-unpack-bits)
X  (define-key calc-mode-map "bw" 'calc-word-size)
X  (define-key calc-mode-map "bx" 'calc-xor)
X  (define-key calc-mode-map "bB" 'calc-log)
X  (define-key calc-mode-map "bD" 'calc-fin-ddb)
X  (define-key calc-mode-map "bF" 'calc-fin-fv)
X  (define-key calc-mode-map "bI" 'calc-fin-irr)
X  (define-key calc-mode-map "bL" 'calc-lshift-arith)
X  (define-key calc-mode-map "bM" 'calc-fin-pmt)
X  (define-key calc-mode-map "bN" 'calc-fin-npv)
X  (define-key calc-mode-map "bP" 'calc-fin-pv)
X  (define-key calc-mode-map "bR" 'calc-rshift-arith)
X  (define-key calc-mode-map "bS" 'calc-fin-sln)
X  (define-key calc-mode-map "bT" 'calc-fin-rate)
X  (define-key calc-mode-map "bY" 'calc-fin-syd)
X  (define-key calc-mode-map "b#" 'calc-fin-nper)
X
X  (define-key calc-mode-map "c" nil)
X  (define-key calc-mode-map "c?" 'calc-c-prefix-help)
X  (define-key calc-mode-map "cc" 'calc-clean)
X  (define-key calc-mode-map "cd" 'calc-to-degrees)
X  (define-key calc-mode-map "cf" 'calc-float)
X  (define-key calc-mode-map "ch" 'calc-to-hms)
X  (define-key calc-mode-map "cp" 'calc-polar)
X  (define-key calc-mode-map "cr" 'calc-to-radians)
X  (define-key calc-mode-map "cC" 'calc-cos)
X  (define-key calc-mode-map "cF" 'calc-fraction)
X
X  (define-key calc-mode-map "d" nil)
X  (define-key calc-mode-map "d?" 'calc-d-prefix-help)
X  (define-key calc-mode-map "d0" 'calc-decimal-radix)
X  (define-key calc-mode-map "d2" 'calc-binary-radix)
X  (define-key calc-mode-map "d6" 'calc-hex-radix)
X  (define-key calc-mode-map "d8" 'calc-octal-radix)
X  (define-key calc-mode-map "db" 'calc-line-breaking)
X  (define-key calc-mode-map "dc" 'calc-complex-notation)
X  (define-key calc-mode-map "dd" 'calc-date-notation)
X  (define-key calc-mode-map "de" 'calc-eng-notation)
X  (define-key calc-mode-map "df" 'calc-fix-notation)
X  (define-key calc-mode-map "dg" 'calc-group-digits)
X  (define-key calc-mode-map "dh" 'calc-hms-notation)
X  (define-key calc-mode-map "di" 'calc-i-notation)
X  (define-key calc-mode-map "dj" 'calc-j-notation)
X  (define-key calc-mode-map "dl" 'calc-line-numbering)
X  (define-key calc-mode-map "dn" 'calc-normal-notation)
X  (define-key calc-mode-map "do" 'calc-over-notation)
X  (define-key calc-mode-map "dp" 'calc-show-plain)
X  (define-key calc-mode-map "dr" 'calc-radix)
X  (define-key calc-mode-map "ds" 'calc-sci-notation)
X  (define-key calc-mode-map "dt" 'calc-truncate-stack)
X  (define-key calc-mode-map "dw" 'calc-auto-why)
X  (define-key calc-mode-map "dz" 'calc-leading-zeros)
X  (define-key calc-mode-map "dB" 'calc-big-language)
X  (define-key calc-mode-map "dD" 'calc-redo)
X  (define-key calc-mode-map "dC" 'calc-c-language)
X  (define-key calc-mode-map "dE" 'calc-eqn-language)
X  (define-key calc-mode-map "dF" 'calc-fortran-language)
X  (define-key calc-mode-map "dM" 'calc-mathematica-language)
X  (define-key calc-mode-map "dN" 'calc-normal-language)
X  (define-key calc-mode-map "dO" 'calc-flat-language)
X  (define-key calc-mode-map "dP" 'calc-pascal-language)
X  (define-key calc-mode-map "dT" 'calc-tex-language)
X  (define-key calc-mode-map "dU" 'calc-unformatted-language)
X  (define-key calc-mode-map "dW" 'calc-maple-language)
X  (define-key calc-mode-map "d[" 'calc-truncate-up)
X  (define-key calc-mode-map "d]" 'calc-truncate-down)
X  (define-key calc-mode-map "d." 'calc-point-char)
X  (define-key calc-mode-map "d," 'calc-group-char)
X  (define-key calc-mode-map "d\"" 'calc-display-strings)
X  (define-key calc-mode-map "d<" 'calc-left-justify)
X  (define-key calc-mode-map "d=" 'calc-center-justify)
X  (define-key calc-mode-map "d>" 'calc-right-justify)
X  (define-key calc-mode-map "d{" 'calc-left-label)
X  (define-key calc-mode-map "d}" 'calc-right-label)
X  (define-key calc-mode-map "d'" 'calc-display-raw)
X  (define-key calc-mode-map "d`" 'calc-realign)
X  (define-key calc-mode-map "d~" 'calc-refresh)
X  (define-key calc-mode-map "d " 'calc-refresh)
X  (define-key calc-mode-map "d\r" 'calc-refresh-top)
X
X  (define-key calc-mode-map "f" nil)
X  (define-key calc-mode-map "f?" 'calc-f-prefix-help)
X  (define-key calc-mode-map "fb" 'calc-beta)
X  (define-key calc-mode-map "fe" 'calc-erf)
X  (define-key calc-mode-map "fg" 'calc-gamma)
X  (define-key calc-mode-map "fh" 'calc-hypot)
X  (define-key calc-mode-map "fi" 'calc-im)
X  (define-key calc-mode-map "fj" 'calc-bessel-J)
X  (define-key calc-mode-map "fn" 'calc-min)
X  (define-key calc-mode-map "fr" 'calc-re)
X  (define-key calc-mode-map "fs" 'calc-sign)
X  (define-key calc-mode-map "fx" 'calc-max)
X  (define-key calc-mode-map "fy" 'calc-bessel-Y)
X  (define-key calc-mode-map "fA" 'calc-abssqr)
X  (define-key calc-mode-map "fB" 'calc-inc-beta)
X  (define-key calc-mode-map "fE" 'calc-expm1)
X  (define-key calc-mode-map "fF" 'calc-floor)
X  (define-key calc-mode-map "fG" 'calc-inc-gamma)
X  (define-key calc-mode-map "fI" 'calc-ilog)
X  (define-key calc-mode-map "fL" 'calc-lnp1)
X  (define-key calc-mode-map "fM" 'calc-mant-part)
X  (define-key calc-mode-map "fQ" 'calc-isqrt)
X  (define-key calc-mode-map "fS" 'calc-scale-float)
X  (define-key calc-mode-map "fT" 'calc-arctan2)
X  (define-key calc-mode-map "fX" 'calc-xpon-part)
X  (define-key calc-mode-map "f[" 'calc-decrement)
X  (define-key calc-mode-map "f]" 'calc-increment)
X
X  (define-key calc-mode-map "g" nil)
X  (define-key calc-mode-map "g?" 'calc-g-prefix-help)
X  (define-key calc-mode-map "ga" 'calc-graph-add)
X  (define-key calc-mode-map "gb" 'calc-graph-border)
X  (define-key calc-mode-map "gc" 'calc-graph-clear)
X  (define-key calc-mode-map "gd" 'calc-graph-delete)
X  (define-key calc-mode-map "gf" 'calc-graph-fast)
X  (define-key calc-mode-map "gg" 'calc-graph-grid)
X  (define-key calc-mode-map "gh" 'calc-graph-header)
X  (define-key calc-mode-map "gk" 'calc-graph-key)
X  (define-key calc-mode-map "gj" 'calc-graph-juggle)
X  (define-key calc-mode-map "gl" 'calc-graph-log-x)
X  (define-key calc-mode-map "gn" 'calc-graph-name)
X  (define-key calc-mode-map "gp" 'calc-graph-plot)
X  (define-key calc-mode-map "gq" 'calc-graph-quit)
X  (define-key calc-mode-map "gr" 'calc-graph-range-x)
X  (define-key calc-mode-map "gs" 'calc-graph-line-style)
X  (define-key calc-mode-map "gt" 'calc-graph-title-x)
X  (define-key calc-mode-map "gv" 'calc-graph-view-commands)
X  (define-key calc-mode-map "gx" 'calc-graph-display)
X  (define-key calc-mode-map "gz" 'calc-graph-zero-x)
X  (define-key calc-mode-map "gA" 'calc-graph-add-3d)
X  (define-key calc-mode-map "gC" 'calc-graph-command)
X  (define-key calc-mode-map "gD" 'calc-graph-device)
X  (define-key calc-mode-map "gF" 'calc-graph-fast-3d)
X  (define-key calc-mode-map "gG" 'calc-argument)
X  (define-key calc-mode-map "gH" 'calc-graph-hide)
X  (define-key calc-mode-map "gK" 'calc-graph-kill)
X  (define-key calc-mode-map "gL" 'calc-graph-log-y)
X  (define-key calc-mode-map "gN" 'calc-graph-num-points)
X  (define-key calc-mode-map "gO" 'calc-graph-output)
X  (define-key calc-mode-map "gP" 'calc-graph-print)
X  (define-key calc-mode-map "gR" 'calc-graph-range-y)
X  (define-key calc-mode-map "gS" 'calc-graph-point-style)
X  (define-key calc-mode-map "gT" 'calc-graph-title-y)
X  (define-key calc-mode-map "gV" 'calc-graph-view-trail)
X  (define-key calc-mode-map "gX" 'calc-graph-geometry)
X  (define-key calc-mode-map "gZ" 'calc-graph-zero-y)
X  (define-key calc-mode-map "g\C-l" 'calc-graph-log-z)
X  (define-key calc-mode-map "g\C-r" 'calc-graph-range-z)
X  (define-key calc-mode-map "g\C-t" 'calc-graph-title-z)
X
X  (define-key calc-mode-map "h" 'calc-help-prefix)
X
X  (define-key calc-mode-map "j" nil)
X  (define-key calc-mode-map "j?" 'calc-j-prefix-help)
X  (define-key calc-mode-map "ja" 'calc-select-additional)
X  (define-key calc-mode-map "jb" 'calc-break-selections)
X  (define-key calc-mode-map "jc" 'calc-clear-selections)
X  (define-key calc-mode-map "jd" 'calc-show-selections)
X  (define-key calc-mode-map "je" 'calc-enable-selections)
X  (define-key calc-mode-map "jl" 'calc-select-less)
X  (define-key calc-mode-map "jm" 'calc-select-more)
X  (define-key calc-mode-map "jn" 'calc-select-next)
X  (define-key calc-mode-map "jo" 'calc-select-once)
X  (define-key calc-mode-map "jp" 'calc-select-previous)
X  (define-key calc-mode-map "jr" 'calc-rewrite-selection)
X  (define-key calc-mode-map "js" 'calc-select-here)
X  (define-key calc-mode-map "jv" 'calc-sel-evaluate)
X  (define-key calc-mode-map "ju" 'calc-unselect)
X  (define-key calc-mode-map "jC" 'calc-sel-commute)
X  (define-key calc-mode-map "jD" 'calc-sel-distribute)
X  (define-key calc-mode-map "jE" 'calc-sel-jump-equals)
X  (define-key calc-mode-map "jI" 'calc-sel-isolate)
X  (define-key calc-mode-map "jJ" 'calc-conj)
X  (define-key calc-mode-map "jL" 'calc-commute-left)
X  (define-key calc-mode-map "jM" 'calc-sel-merge)
X  (define-key calc-mode-map "jN" 'calc-sel-negate)
X  (define-key calc-mode-map "jO" 'calc-select-once-maybe)
X  (define-key calc-mode-map "jR" 'calc-commute-right)
X  (define-key calc-mode-map "jS" 'calc-select-here-maybe)
X  (define-key calc-mode-map "jU" 'calc-sel-unpack)
X  (define-key calc-mode-map "j&" 'calc-sel-invert)
X  (define-key calc-mode-map "j\r" 'calc-copy-selection)
X  (define-key calc-mode-map "j\n" 'calc-copy-selection)
X  (define-key calc-mode-map "j\010" 'calc-del-selection)
X  (define-key calc-mode-map "j\177" 'calc-del-selection)
X  (define-key calc-mode-map "j'" 'calc-enter-selection)
X  (define-key calc-mode-map "j`" 'calc-edit-selection)
X  (define-key calc-mode-map "j+" 'calc-sel-add-both-sides)
X  (define-key calc-mode-map "j-" 'calc-sel-sub-both-sides)
X  (define-key calc-mode-map "j*" 'calc-sel-mult-both-sides)
X  (define-key calc-mode-map "j/" 'calc-sel-div-both-sides)
X  (define-key calc-mode-map "j\"" 'calc-sel-expand-formula)
X
X  (define-key calc-mode-map "k" nil)
X  (define-key calc-mode-map "k?" 'calc-k-prefix-help)
X  (define-key calc-mode-map "ka" 'calc-random-again)
X  (define-key calc-mode-map "kb" 'calc-bernoulli-number)
X  (define-key calc-mode-map "kc" 'calc-choose)
X  (define-key calc-mode-map "kd" 'calc-double-factorial)
X  (define-key calc-mode-map "ke" 'calc-euler-number)
X  (define-key calc-mode-map "kf" 'calc-prime-factors)
X  (define-key calc-mode-map "kg" 'calc-gcd)
X  (define-key calc-mode-map "kh" 'calc-shuffle)
X  (define-key calc-mode-map "kl" 'calc-lcm)
X  (define-key calc-mode-map "km" 'calc-moebius)
X  (define-key calc-mode-map "kn" 'calc-next-prime)
X  (define-key calc-mode-map "kp" 'calc-prime-test)
X  (define-key calc-mode-map "kr" 'calc-random)
X  (define-key calc-mode-map "ks" 'calc-stirling-number)
X  (define-key calc-mode-map "kt" 'calc-totient)
X  (define-key calc-mode-map "kB" 'calc-utpb)
X  (define-key calc-mode-map "kC" 'calc-utpc)
X  (define-key calc-mode-map "kE" 'calc-extended-gcd)
X  (define-key calc-mode-map "kF" 'calc-utpf)
X  (define-key calc-mode-map "kK" 'calc-keep-args)
X  (define-key calc-mode-map "kN" 'calc-utpn)
X  (define-key calc-mode-map "kP" 'calc-utpp)
X  (define-key calc-mode-map "kT" 'calc-utpt)
X
X  (define-key calc-mode-map "m" nil)
X  (define-key calc-mode-map "m?" 'calc-m-prefix-help)
X  (define-key calc-mode-map "ma" 'calc-algebraic-mode)
X  (define-key calc-mode-map "md" 'calc-degrees-mode)
X  (define-key calc-mode-map "mf" 'calc-frac-mode)
X  (define-key calc-mode-map "mh" 'calc-hms-mode)
X  (define-key calc-mode-map "mi" 'calc-infinite-mode)
X  (define-key calc-mode-map "mm" 'calc-save-modes)
X  (define-key calc-mode-map "mp" 'calc-polar-mode)
X  (define-key calc-mode-map "mr" 'calc-radians-mode)
X  (define-key calc-mode-map "ms" 'calc-symbolic-mode)
X  (define-key calc-mode-map "mt" 'calc-total-algebraic-mode)
X  (define-key calc-mode-map "\emt" 'calc-total-algebraic-mode)
X  (define-key calc-mode-map "\em\et" 'calc-total-algebraic-mode)
X  (define-key calc-mode-map "mv" 'calc-matrix-mode)
X  (define-key calc-mode-map "mw" 'calc-working)
X  (define-key calc-mode-map "mx" 'calc-always-load-extensions)
X  (define-key calc-mode-map "mA" 'calc-alg-simplify-mode)
X  (define-key calc-mode-map "mB" 'calc-bin-simplify-mode)
X  (define-key calc-mode-map "mC" 'calc-auto-recompute)
X  (define-key calc-mode-map "mD" 'calc-default-simplify-mode)
X  (define-key calc-mode-map "mE" 'calc-ext-simplify-mode)
X  (define-key calc-mode-map "mF" 'calc-settings-file-name)
X  (define-key calc-mode-map "mM" 'calc-more-recursion-depth)
X  (define-key calc-mode-map "mN" 'calc-num-simplify-mode)
X  (define-key calc-mode-map "mO" 'calc-no-simplify-mode)
X  (define-key calc-mode-map "mR" 'calc-mode-record-mode)
X  (define-key calc-mode-map "mS" 'calc-shift-prefix)
X  (define-key calc-mode-map "mU" 'calc-units-simplify-mode)
X  (define-key calc-mode-map "mX" 'calc-load-everything)
X
X  (define-key calc-mode-map "r" nil)
X  (define-key calc-mode-map "r?" 'calc-r-prefix-help)
X
X  (define-key calc-mode-map "s" nil)
X  (define-key calc-mode-map "s?" 'calc-s-prefix-help)
X  (define-key calc-mode-map "sc" 'calc-copy-variable)
X  (define-key calc-mode-map "sd" 'calc-declare-variable)
X  (define-key calc-mode-map "se" 'calc-edit-variable)
X  (define-key calc-mode-map "si" 'calc-insert-variables)
X  (define-key calc-mode-map "sl" 'calc-let)
X  (define-key calc-mode-map "sm" 'calc-store-map)
X  (define-key calc-mode-map "sn" 'calc-store-neg)
X  (define-key calc-mode-map "sp" 'calc-permanent-variable)
X  (define-key calc-mode-map "sr" 'calc-recall)
X  (define-key calc-mode-map "ss" 'calc-store)
X  (define-key calc-mode-map "st" 'calc-store-into)
X  (define-key calc-mode-map "su" 'calc-unstore)
X  (define-key calc-mode-map "sx" 'calc-store-exchange)
X  (define-key calc-mode-map "sA" 'calc-edit-AlgSimpRules)
X  (define-key calc-mode-map "sD" 'calc-edit-Decls)
X  (define-key calc-mode-map "sE" 'calc-edit-EvalRules)
X  (define-key calc-mode-map "sF" 'calc-edit-FitRules)
X  (define-key calc-mode-map "sG" 'calc-edit-GenCount)
X  (define-key calc-mode-map "sL" 'calc-edit-LineStyles)
X  (define-key calc-mode-map "sP" 'calc-edit-PointStyles)
X  (define-key calc-mode-map "sR" 'calc-edit-PlotRejects)
X  (define-key calc-mode-map "sS" 'calc-sin)
X  (define-key calc-mode-map "sT" 'calc-edit-TimeZone)
X  (define-key calc-mode-map "sU" 'calc-edit-UnitSimpRules)
X  (define-key calc-mode-map "sX" 'calc-edit-ExtSimpRules)
X  (define-key calc-mode-map "s+" 'calc-store-plus)
X  (define-key calc-mode-map "s-" 'calc-store-minus)
X  (define-key calc-mode-map "s*" 'calc-store-times)
X  (define-key calc-mode-map "s/" 'calc-store-div)
X  (define-key calc-mode-map "s^" 'calc-store-power)
X  (define-key calc-mode-map "s|" 'calc-store-concat)
X  (define-key calc-mode-map "s&" 'calc-store-inv)
X  (define-key calc-mode-map "s[" 'calc-store-decr)
X  (define-key calc-mode-map "s]" 'calc-store-incr)
X  (define-key calc-mode-map "s:" 'calc-assign)
X  (define-key calc-mode-map "s=" 'calc-evalto)
X
X  (define-key calc-mode-map "t" nil)
X  (define-key calc-mode-map "t?" 'calc-t-prefix-help)
X  (define-key calc-mode-map "tb" 'calc-trail-backward)
X  (define-key calc-mode-map "td" 'calc-trail-display)
X  (define-key calc-mode-map "tf" 'calc-trail-forward)
X  (define-key calc-mode-map "th" 'calc-trail-here)
X  (define-key calc-mode-map "ti" 'calc-trail-in)
X  (define-key calc-mode-map "tk" 'calc-trail-kill)
X  (define-key calc-mode-map "tm" 'calc-trail-marker)
X  (define-key calc-mode-map "tn" 'calc-trail-next)
X  (define-key calc-mode-map "to" 'calc-trail-out)
X  (define-key calc-mode-map "tp" 'calc-trail-previous)
X  (define-key calc-mode-map "tr" 'calc-trail-isearch-backward)
X  (define-key calc-mode-map "ts" 'calc-trail-isearch-forward)
X  (define-key calc-mode-map "ty" 'calc-trail-yank)
X  (define-key calc-mode-map "t[" 'calc-trail-first)
X  (define-key calc-mode-map "t]" 'calc-trail-last)
X  (define-key calc-mode-map "t<" 'calc-trail-scroll-left)
X  (define-key calc-mode-map "t>" 'calc-trail-scroll-right)
X  (define-key calc-mode-map "t{" 'calc-trail-backward)
X  (define-key calc-mode-map "t}" 'calc-trail-forward)
X  (define-key calc-mode-map "t." 'calc-full-trail-vectors)
X  (define-key calc-mode-map "tC" 'calc-convert-time-zones)
X  (define-key calc-mode-map "tD" 'calc-date)
X  (define-key calc-mode-map "tI" 'calc-inc-month)
X  (define-key calc-mode-map "tJ" 'calc-julian)
X  (define-key calc-mode-map "tM" 'calc-new-month)
X  (define-key calc-mode-map "tN" 'calc-now)
X  (define-key calc-mode-map "tP" 'calc-date-part)
X  (define-key calc-mode-map "tT" 'calc-tan)
X  (define-key calc-mode-map "tU" 'calc-unix-time)
X  (define-key calc-mode-map "tW" 'calc-new-week)
X  (define-key calc-mode-map "tY" 'calc-new-year)
X  (define-key calc-mode-map "tZ" 'calc-time-zone)
X
X  (define-key calc-mode-map "u" 'nil)
X  (define-key calc-mode-map "u?" 'calc-u-prefix-help)
X  (define-key calc-mode-map "ua" 'calc-autorange-units)
X  (define-key calc-mode-map "ub" 'calc-base-units)
X  (define-key calc-mode-map "uc" 'calc-convert-units)
X  (define-key calc-mode-map "ud" 'calc-define-unit)
X  (define-key calc-mode-map "ue" 'calc-explain-units)
X  (define-key calc-mode-map "ug" 'calc-get-unit-definition)
X  (define-key calc-mode-map "up" 'calc-permanent-units)
X  (define-key calc-mode-map "ur" 'calc-remove-units)
X  (define-key calc-mode-map "us" 'calc-simplify-units)
X  (define-key calc-mode-map "ut" 'calc-convert-temperature)
X  (define-key calc-mode-map "uu" 'calc-undefine-unit)
X  (define-key calc-mode-map "uv" 'calc-enter-units-table)
X  (define-key calc-mode-map "ux" 'calc-extract-units)
X  (define-key calc-mode-map "uV" 'calc-view-units-table)
X  (define-key calc-mode-map "uC" 'calc-vector-covariance)
X  (define-key calc-mode-map "uG" 'calc-vector-geometric-mean)
X  (define-key calc-mode-map "uM" 'calc-vector-mean)
X  (define-key calc-mode-map "uN" 'calc-vector-min)
X  (define-key calc-mode-map "uS" 'calc-vector-sdev)
X  (define-key calc-mode-map "uU" 'calc-undo)
X  (define-key calc-mode-map "uX" 'calc-vector-max)
X  (define-key calc-mode-map "u#" 'calc-vector-count)
X  (define-key calc-mode-map "u+" 'calc-vector-sum)
X  (define-key calc-mode-map "u*" 'calc-vector-product)
X
X  (define-key calc-mode-map "v" 'nil)
X  (define-key calc-mode-map "v?" 'calc-v-prefix-help)
X  (define-key calc-mode-map "va" 'calc-arrange-vector)
X  (define-key calc-mode-map "vb" 'calc-build-vector)
X  (define-key calc-mode-map "vc" 'calc-mcol)
X  (define-key calc-mode-map "vd" 'calc-diag)
X  (define-key calc-mode-map "ve" 'calc-expand-vector)
X  (define-key calc-mode-map "vf" 'calc-vector-find)
X  (define-key calc-mode-map "vh" 'calc-head)
X  (define-key calc-mode-map "vi" 'calc-ident)
X  (define-key calc-mode-map "vk" 'calc-cons)
X  (define-key calc-mode-map "vl" 'calc-vlength)
X  (define-key calc-mode-map "vm" 'calc-mask-vector)
X  (define-key calc-mode-map "vn" 'calc-rnorm)
X  (define-key calc-mode-map "vp" 'calc-pack)
X  (define-key calc-mode-map "vr" 'calc-mrow)
X  (define-key calc-mode-map "vs" 'calc-subvector)
X  (define-key calc-mode-map "vt" 'calc-transpose)
X  (define-key calc-mode-map "vu" 'calc-unpack)
X  (define-key calc-mode-map "vv" 'calc-reverse-vector)
X  (define-key calc-mode-map "vx" 'calc-index)
X  (define-key calc-mode-map "vA" 'calc-apply)
X  (define-key calc-mode-map "vC" 'calc-cross)
X  (define-key calc-mode-map "vD" 'calc-mdet)
X  (define-key calc-mode-map "vE" 'calc-set-enumerate)
X  (define-key calc-mode-map "vF" 'calc-set-floor)
X  (define-key calc-mode-map "vG" 'calc-grade)
X  (define-key calc-mode-map "vH" 'calc-histogram)
X  (define-key calc-mode-map "vI" 'calc-inner-product)
X  (define-key calc-mode-map "vJ" 'calc-conj-transpose)
X  (define-key calc-mode-map "vL" 'calc-mlud)
X  (define-key calc-mode-map "vM" 'calc-map)
X  (define-key calc-mode-map "vN" 'calc-cnorm)
X  (define-key calc-mode-map "vO" 'calc-outer-product)
X  (define-key calc-mode-map "vR" 'calc-reduce)
X  (define-key calc-mode-map "vS" 'calc-sort)
X  (define-key calc-mode-map "vT" 'calc-mtrace)
X  (define-key calc-mode-map "vU" 'calc-accumulate)
X  (define-key calc-mode-map "vV" 'calc-set-union)
X  (define-key calc-mode-map "vX" 'calc-set-xor)
X  (define-key calc-mode-map "v^" 'calc-set-intersect)
X  (define-key calc-mode-map "v-" 'calc-set-difference)
X  (define-key calc-mode-map "v~" 'calc-set-complement)
X  (define-key calc-mode-map "v:" 'calc-set-span)
X  (define-key calc-mode-map "v#" 'calc-set-cardinality)
X  (define-key calc-mode-map "v+" 'calc-remove-duplicates)
X  (define-key calc-mode-map "v&" 'calc-inv)
X  (define-key calc-mode-map "v<" 'calc-matrix-left-justify)
X  (define-key calc-mode-map "v=" 'calc-matrix-center-justify)
X  (define-key calc-mode-map "v>" 'calc-matrix-right-justify)
X  (define-key calc-mode-map "v." 'calc-full-vectors)
X  (define-key calc-mode-map "v/" 'calc-break-vectors)
X  (define-key calc-mode-map "v," 'calc-vector-commas)
X  (define-key calc-mode-map "v[" 'calc-vector-brackets)
X  (define-key calc-mode-map "v]" 'calc-matrix-brackets)
X  (define-key calc-mode-map "v{" 'calc-vector-braces)
X  (define-key calc-mode-map "v}" 'calc-matrix-brackets)
X  (define-key calc-mode-map "v(" 'calc-vector-parens)
X  (define-key calc-mode-map "v)" 'calc-matrix-brackets)
X  (aset calc-mode-map ?V (aref calc-mode-map ?v))
X
X  (define-key calc-mode-map "z" 'nil)
X  (define-key calc-mode-map "z?" 'calc-z-prefix-help)
X
X  (define-key calc-mode-map "Z" 'nil)
X  (define-key calc-mode-map "Z?" 'calc-shift-Z-prefix-help)
X  (define-key calc-mode-map "ZC" 'calc-user-define-composition)
X  (define-key calc-mode-map "ZD" 'calc-user-define)
X  (define-key calc-mode-map "ZE" 'calc-user-define-edit)
X  (define-key calc-mode-map "ZF" 'calc-user-define-formula)
X  (define-key calc-mode-map "ZG" 'calc-get-user-defn)
X  (define-key calc-mode-map "ZI" 'calc-user-define-invocation)
X  (define-key calc-mode-map "ZK" 'calc-user-define-kbd-macro)
X  (define-key calc-mode-map "ZP" 'calc-user-define-permanent)
X  (define-key calc-mode-map "ZT" 'calc-timing)
X  (define-key calc-mode-map "ZU" 'calc-user-undefine)
X  (define-key calc-mode-map "Z[" 'calc-kbd-if)
X  (define-key calc-mode-map "Z:" 'calc-kbd-else)
X  (define-key calc-mode-map "Z|" 'calc-kbd-else-if)
X  (define-key calc-mode-map "Z]" 'calc-kbd-end-if)
X  (define-key calc-mode-map "Z<" 'calc-kbd-repeat)
X  (define-key calc-mode-map "Z>" 'calc-kbd-end-repeat)
X  (define-key calc-mode-map "Z(" 'calc-kbd-for)
X  (define-key calc-mode-map "Z)" 'calc-kbd-end-for)
X  (define-key calc-mode-map "Z{" 'calc-kbd-loop)
X  (define-key calc-mode-map "Z}" 'calc-kbd-end-loop)
X  (define-key calc-mode-map "Z/" 'calc-kbd-break)
X  (define-key calc-mode-map "Z`" 'calc-kbd-push)
X  (define-key calc-mode-map "Z'" 'calc-kbd-pop)
X  (define-key calc-mode-map "Z=" 'calc-kbd-report)
X  (define-key calc-mode-map "Z#" 'calc-kbd-query)
X
X  (calc-init-prefixes)
X
X  (mapcar (function
X       (lambda (x)
X         (define-key calc-mode-map (format "c%c" x) 'calc-clean-num)
X         (define-key calc-mode-map (format "j%c" x) 'calc-select-part)
X         (define-key calc-mode-map (format "s%c" x) 'calc-store-quick)
X         (define-key calc-mode-map (format "t%c" x) 'calc-store-into-quick)
X         (define-key calc-mode-map (format "r%c" x) 'calc-recall-quick)))
X      "0123456789")
X
X  (let ((i ?A))
X    (while (<= i ?z)
X      (if (eq (car-safe (aref calc-mode-map i)) 'keymap)
X      (aset calc-mode-map i
X        (cons 'keymap (cons (cons ?\e (aref calc-mode-map i))
X                    (cdr (aref calc-mode-map i))))))
X      (setq i (1+ i))))
X
X  (setq calc-alg-map (copy-keymap calc-mode-map)
X    calc-alg-esc-map (copy-keymap esc-map))
X  (let ((i 32))
X    (while (< i 127)
X      (or (memq i '(?' ?` ?= ??))
X      (aset calc-alg-map i 'calc-auto-algebraic-entry))
X      (or (memq i '(?# ?x ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))
X      (aset calc-alg-esc-map i (aref calc-mode-map i)))
X      (setq i (1+ i))))
X  (define-key calc-alg-map "\e" calc-alg-esc-map)
X  (define-key calc-alg-map "\e\t" 'calc-roll-up)
X  (define-key calc-alg-map "\e\C-m" 'calc-last-args-stub)
X  (define-key calc-alg-map "\e\177" 'calc-pop-above)
X
X  ;; The following is a relic for backward compatability only.
X  ;; The calc-define property list is now the recommended method.
X  (if (and (boundp 'calc-ext-defs)
X       calc-ext-defs)
X      (progn
X    (calc-need-macros)
X    (message "Evaluating calc-ext-defs...")
X    (eval (cons 'progn calc-ext-defs))
X    (setq calc-ext-defs nil)))
X
;;;; (Autoloads here)
X  (mapcar (function (lambda (x)
X    (mapcar (function (lambda (func)
X      (autoload func (car x)))) (cdr x))))
X    '(
X
X ("calc-alg" calc-Need-calc-alg calc-has-rules
calc-modify-simplify-mode calcFunc-collect calcFunc-esimplify
calcFunc-islin calcFunc-islinnt calcFunc-lin calcFunc-linnt
calcFunc-simplify calcFunc-subst math-beforep
math-build-polynomial-expr math-expand-formula math-expr-contains
math-expr-contains-count math-expr-depends math-expr-height
math-expr-subst math-expr-weight math-integer-plus math-is-linear
math-is-multiple math-is-polynomial math-linear-in math-multiple-of
math-need-std-simps math-poly-depends math-poly-mix math-poly-mul
math-poly-simplify math-poly-zerop math-polynomial-base
math-polynomial-p math-recompile-eval-rules math-simplify
math-simplify-exp math-simplify-extended math-simplify-sqrt
math-to-simple-fraction)
X
X ("calc-alg-2" calc-Need-calc-alg-2 calcFunc-asum calcFunc-deriv
calcFunc-ffinv calcFunc-finv calcFunc-fsolve calcFunc-gpoly
calcFunc-integ calcFunc-poly calcFunc-prod calcFunc-roots
calcFunc-solve calcFunc-sum calcFunc-table calcFunc-taylor
calcFunc-tderiv math-expr-calls math-integral-q02 math-integral-q12
math-integral-rational-funcs math-lcm-denoms math-looks-evenp
math-poly-all-roots math-prod-rec math-reject-solution math-solve-eqn
math-solve-for math-sum-rec math-try-integral)
X
X ("calc-alg-3" calc-Need-calc-alg-3 calcFunc-efit calcFunc-fit
calcFunc-fitdummy calcFunc-fitparam calcFunc-fitvar
calcFunc-hasfitparams calcFunc-hasfitvars calcFunc-maximize
calcFunc-minimize calcFunc-ninteg calcFunc-polint calcFunc-ratint
calcFunc-root calcFunc-wmaximize calcFunc-wminimize calcFunc-wroot
calcFunc-xfit math-find-minimum math-find-root math-ninteg-evaluate
math-ninteg-midpoint math-ninteg-romberg math-poly-interp)
X
X ("calc-arith" calc-Need-calc-arith calcFunc-abs calcFunc-abssqr
calcFunc-add calcFunc-ceil calcFunc-decr calcFunc-deven calcFunc-dimag
calcFunc-dint calcFunc-div calcFunc-dnatnum calcFunc-dneg
calcFunc-dnonneg calcFunc-dnonzero calcFunc-dnumint calcFunc-dodd
calcFunc-dpos calcFunc-drange calcFunc-drat calcFunc-dreal
calcFunc-dscalar calcFunc-fceil calcFunc-ffloor calcFunc-float
calcFunc-fround calcFunc-frounde calcFunc-froundu calcFunc-ftrunc
calcFunc-idiv calcFunc-incr calcFunc-mant calcFunc-max calcFunc-min
calcFunc-mod calcFunc-mul calcFunc-neg calcFunc-percent calcFunc-pow
calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-scf
calcFunc-sub calcFunc-xpon math-abs math-abs-approx
math-add-objects-fancy math-add-or-sub math-add-symb-fancy
math-ceiling math-combine-prod math-combine-sum math-div-by-zero
math-div-objects-fancy math-div-symb-fancy math-div-zero
math-float-fancy math-floor-fancy math-floor-special math-guess-if-neg
math-intv-constp math-known-evenp math-known-imagp math-known-integerp
math-known-matrixp math-known-negp math-known-nonnegp
math-known-nonposp math-known-nonzerop math-known-num-integerp
math-known-oddp math-known-posp math-known-realp math-known-scalarp
math-max math-min math-mod-fancy math-mul-float math-mul-objects-fancy
math-mul-or-div math-mul-symb-fancy math-mul-zero math-neg-fancy
math-neg-float math-okay-neg math-possible-signs math-possible-types
math-pow-fancy math-pow-mod math-pow-of-zero math-pow-zero
math-quarter-integer math-round math-setup-declarations math-sqr
math-sqr-float math-trunc-fancy math-trunc-special)
X
X ("calc-bin" calc-Need-calc-bin calcFunc-and calcFunc-ash
calcFunc-clip calcFunc-diff calcFunc-lsh calcFunc-not calcFunc-or
calcFunc-rash calcFunc-rot calcFunc-rsh calcFunc-xor math-clip
math-compute-max-digits math-convert-radix-digits math-float-parts
math-format-bignum-binary math-format-bignum-hex
math-format-bignum-octal math-format-bignum-radix math-format-binary
math-format-radix math-format-radix-float math-integer-log2
math-power-of-2 math-radix-float-power)
X
X ("calc-comb" calc-Need-calc-comb calc-report-prime-test
calcFunc-choose calcFunc-dfact calcFunc-egcd calcFunc-fact
calcFunc-gcd calcFunc-lcm calcFunc-moebius calcFunc-nextprime
calcFunc-perm calcFunc-prevprime calcFunc-prfac calcFunc-prime
calcFunc-random calcFunc-shuffle calcFunc-stir1 calcFunc-stir2
calcFunc-totient math-init-random-base math-member math-prime-test
math-random-base)
X
X ("calc-comp" calc-Need-calc-comp calcFunc-cascent calcFunc-cdescent
calcFunc-cheight calcFunc-cwidth math-comp-ascent math-comp-descent
math-comp-height math-comp-width math-compose-expr
math-composition-to-string math-stack-value-offset-fancy
math-vector-is-string math-vector-to-string)
X
X ("calc-cplx" calc-Need-calc-cplx calcFunc-arg calcFunc-conj
calcFunc-im calcFunc-polar calcFunc-re calcFunc-rect math-complex
math-fix-circular math-imaginary math-imaginary-i math-normalize-polar
math-polar math-want-polar)
X
X ("calc-embed" calc-Need-calc-embed calc-do-embedded
calc-do-embedded-activate calc-embedded-evaluate-expr
calc-embedded-modes-change calc-embedded-var-change)
X
X ("calc-fin" calc-Need-calc-fin calcFunc-ddb calcFunc-fv calcFunc-fvb
calcFunc-fvl calcFunc-irr calcFunc-irrb calcFunc-nper calcFunc-nperb
calcFunc-nperl calcFunc-npv calcFunc-npvb calcFunc-pmt calcFunc-pmtb
calcFunc-pv calcFunc-pvb calcFunc-pvl calcFunc-rate calcFunc-rateb
calcFunc-ratel calcFunc-sln calcFunc-syd)
X
X ("calc-forms" calc-Need-calc-forms calcFunc-date calcFunc-day
calcFunc-dsadj calcFunc-hms calcFunc-hour calcFunc-incmonth
calcFunc-incyear calcFunc-intv calcFunc-julian calcFunc-makemod
calcFunc-minute calcFunc-month calcFunc-newmonth calcFunc-newweek
calcFunc-newyear calcFunc-now calcFunc-pwday calcFunc-sdev
calcFunc-second calcFunc-time calcFunc-tzconv calcFunc-tzone
calcFunc-unixtime calcFunc-weekday calcFunc-year calcFunc-yearday
math-combine-intervals math-date-parts math-date-to-dt math-div-mod
math-dt-to-date math-format-date math-from-hms math-make-intv
math-make-mod math-make-sdev math-mod-intv math-normalize-hms
math-normalize-mod math-parse-date math-read-angle-brackets
math-sort-intv math-to-hms)
X
X ("calc-frac" calc-Need-calc-frac calc-add-fractions
calc-div-fractions calc-mul-fractions calcFunc-fdiv calcFunc-frac
math-make-frac)
X
X ("calc-funcs" calc-Need-calc-funcs calc-prob-dist calcFunc-bern
calcFunc-besJ calcFunc-besY calcFunc-beta calcFunc-betaB
calcFunc-betaI calcFunc-erf calcFunc-erfc calcFunc-euler
calcFunc-gamma calcFunc-gammaG calcFunc-gammaP calcFunc-gammaQ
calcFunc-gammag calcFunc-ltpb calcFunc-ltpc calcFunc-ltpf
calcFunc-ltpn calcFunc-ltpp calcFunc-ltpt calcFunc-utpb calcFunc-utpc
calcFunc-utpf calcFunc-utpn calcFunc-utpp calcFunc-utpt
math-bernoulli-number math-gammap1-raw)
X
X ("calc-graph" calc-Need-calc-graph calc-graph-show-tty)
X
X ("calc-help" calc-Need-calc-help)
X
X ("calc-incom" calc-Need-calc-incom calc-digit-dots)
X
X ("calc-keypd" calc-Need-calc-keypd calc-do-keypad
calc-keypad-x-left-click calc-keypad-x-middle-click
calc-keypad-x-right-click)
X
X ("calc-lang" calc-Need-calc-lang calc-set-language
math-read-big-balance math-read-big-rec)
X
X ("calc-map" calc-Need-calc-map calc-get-operator calcFunc-accum
calcFunc-afixp calcFunc-anest calcFunc-apply calcFunc-call
calcFunc-fixp calcFunc-inner calcFunc-map calcFunc-mapa calcFunc-mapc
calcFunc-mapd calcFunc-mapeq calcFunc-mapeqp calcFunc-mapeqr
calcFunc-mapr calcFunc-nest calcFunc-outer calcFunc-raccum
calcFunc-reduce calcFunc-reducea calcFunc-reducec calcFunc-reduced
calcFunc-reducer calcFunc-rreduce calcFunc-rreducea calcFunc-rreducec
calcFunc-rreduced calcFunc-rreducer math-build-call
math-calcFunc-to-var math-multi-subst math-multi-subst-rec
math-var-to-calcFunc)
X
X ("calc-mat" calc-Need-calc-mat calcFunc-det calcFunc-lud calcFunc-tr
math-col-matrix math-lud-solve math-matrix-inv-raw math-matrix-lud
math-mul-mat-vec math-mul-mats math-row-matrix)
X
X ("calc-math" calc-Need-calc-math calcFunc-alog calcFunc-arccos
calcFunc-arccosh calcFunc-arcsin calcFunc-arcsincos calcFunc-arcsinh
calcFunc-arctan calcFunc-arctan2 calcFunc-arctanh calcFunc-cos
calcFunc-cosh calcFunc-deg calcFunc-exp calcFunc-exp10 calcFunc-expm1
calcFunc-hypot calcFunc-ilog calcFunc-isqrt calcFunc-ln calcFunc-lnp1
calcFunc-log calcFunc-log10 calcFunc-nroot calcFunc-rad calcFunc-sin
calcFunc-sincos calcFunc-sinh calcFunc-sqr calcFunc-sqrt calcFunc-tan
calcFunc-tanh math-arccos-raw math-arcsin-raw math-arctan-raw
math-arctan2-raw math-cos-raw math-exp-minus-1-raw math-exp-raw
math-from-radians math-from-radians-2 math-hypot math-infinite-dir
math-isqrt-small math-ln-raw math-nearly-equal math-nearly-equal-float
math-nearly-zerop math-nearly-zerop-float math-nth-root
math-sin-cos-raw math-sin-raw math-sqrt math-sqrt-float math-sqrt-raw
math-tan-raw math-to-radians math-to-radians-2)
X
X ("calc-mode" calc-Need-calc-mode)
X
X ("calc-poly" calc-Need-calc-poly calcFunc-apart calcFunc-expand
calcFunc-expandpow calcFunc-factor calcFunc-factors calcFunc-nrat
calcFunc-pcont calcFunc-pdeg calcFunc-pdiv calcFunc-pdivide
calcFunc-pdivrem calcFunc-pgcd calcFunc-plead calcFunc-pprim
calcFunc-prem math-accum-factors math-atomic-factorp
math-div-poly-const math-div-thru math-expand-power math-expand-term
math-factor-contains math-factor-expr math-factor-expr-part
math-factor-expr-try math-factor-finish math-factor-poly-coefs
math-factor-protect math-mul-thru math-padded-polynomial
math-partial-fractions math-poly-degree math-poly-deriv-coefs
math-poly-gcd-frac-list math-poly-modulus-rec math-ratpoly-p
math-to-ratpoly math-to-ratpoly-rec)
X
X ("calc-prog" calc-Need-calc-prog calc-default-formula-arglist
calc-execute-kbd-macro calc-fix-user-formula calc-subsetp
calcFunc-constant calcFunc-eq calcFunc-geq calcFunc-gt calcFunc-if
calcFunc-in calcFunc-integer calcFunc-istrue calcFunc-land
calcFunc-leq calcFunc-lnot calcFunc-lor calcFunc-lt calcFunc-negative
calcFunc-neq calcFunc-nonvar calcFunc-real calcFunc-refers
calcFunc-rmeq calcFunc-typeof calcFunc-variable math-body-refers-to
math-break math-composite-inequalities math-do-defmath math-handle-for
math-handle-foreach math-normalize-logical-op math-return)
X
X ("calc-rewr" calc-Need-calc-rewr calcFunc-match calcFunc-matches
calcFunc-matchnot calcFunc-rewrite math-apply-rewrites
math-compile-patterns math-compile-rewrites math-match-patterns
math-rewrite math-rewrite-heads)
X
X ("calc-rules" calc-CommuteRules calc-DistribRules calc-FactorRules
calc-FitRules calc-IntegAfterRules calc-InvertRules calc-JumpRules
calc-MergeRules calc-Need-calc-rules calc-NegateRules
calc-compile-rule-set)
X
X ("calc-sel" calc-Need-calc-sel calc-auto-selection
calc-delete-selection calc-encase-atoms calc-find-assoc-parent-formula
calc-find-parent-formula calc-find-sub-formula calc-prepare-selection
calc-preserve-point calc-replace-selections calc-replace-sub-formula
calc-roll-down-with-selections calc-roll-up-with-selections
calc-sel-error)
X
X ("calc-sel-2" calc-Need-calc-sel-2)
X
X ("calc-stat" calc-Need-calc-stat calc-vector-op calcFunc-agmean
calcFunc-vcorr calcFunc-vcount calcFunc-vcov calcFunc-vflat
calcFunc-vgmean calcFunc-vhmean calcFunc-vmax calcFunc-vmean
calcFunc-vmeane calcFunc-vmedian calcFunc-vmin calcFunc-vpcov
calcFunc-vprod calcFunc-vpsdev calcFunc-vpvar calcFunc-vsdev
calcFunc-vsum calcFunc-vvar math-flatten-many-vecs)
X
X ("calc-store" calc-Need-calc-store calc-read-var-name
calc-store-value calc-var-name)
X
X ("calc-stuff" calc-Need-calc-stuff calc-explain-why calcFunc-clean
calcFunc-pclean calcFunc-pfloat calcFunc-pfrac)
X
X ("calc-trail" calc-Need-calc-trail)
X
X ("calc-undo" calc-Need-calc-undo)
X
X ("calc-units" calc-Need-calc-units calcFunc-usimplify
math-build-units-table math-build-units-table-buffer
math-check-unit-name math-convert-temperature math-convert-units
math-extract-units math-remove-units math-simplify-units
math-single-units-in-expr-p math-to-standard-units
math-units-in-expr-p)
X
X ("calc-vec" calc-Need-calc-vec calcFunc-append calcFunc-appendrev
calcFunc-arrange calcFunc-cnorm calcFunc-cons calcFunc-cross
calcFunc-ctrn calcFunc-cvec calcFunc-diag calcFunc-find
calcFunc-getdiag calcFunc-grade calcFunc-head calcFunc-histogram
calcFunc-idn calcFunc-index calcFunc-mcol calcFunc-mdims
calcFunc-mrcol calcFunc-mrow calcFunc-mrrow calcFunc-pack
calcFunc-rcons calcFunc-rdup calcFunc-rev calcFunc-rgrade
calcFunc-rhead calcFunc-rnorm calcFunc-rsort calcFunc-rsubvec
calcFunc-rtail calcFunc-sort calcFunc-subscr calcFunc-subvec
calcFunc-tail calcFunc-trn calcFunc-unpack calcFunc-unpackt
calcFunc-vcard calcFunc-vcompl calcFunc-vconcat calcFunc-vconcatrev
calcFunc-vdiff calcFunc-vec calcFunc-venum calcFunc-vexp
calcFunc-vfloor calcFunc-vint calcFunc-vlen calcFunc-vmask
calcFunc-vpack calcFunc-vspan calcFunc-vunion calcFunc-vunpack
calcFunc-vxor math-check-for-commas math-clean-set math-copy-matrix
math-dimension-error math-dot-product math-flatten-vector math-map-vec
math-map-vec-2 math-mat-col math-mimic-ident math-prepare-set
math-read-brackets math-reduce-cols math-reduce-vec math-transpose)
X
X ("calc-yank" calc-Need-calc-yank calc-alg-edit calc-clean-newlines
calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit
calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer)
X
))
X
X  (mapcar (function (lambda (x)
X    (mapcar (function (lambda (cmd)
X      (autoload cmd (car x) nil t))) (cdr x))))
X    '(
X
X ("calc-alg" calc-alg-evaluate calc-apart calc-collect calc-expand
calc-expand-formula calc-factor calc-normalize-rat calc-poly-div
calc-poly-div-rem calc-poly-gcd calc-poly-rem calc-simplify
calc-simplify-extended calc-substitute)
X
X ("calc-alg-2" calc-alt-summation calc-derivative
calc-dump-integral-cache calc-integral calc-num-integral
calc-poly-roots calc-product calc-solve-for calc-summation
calc-tabulate calc-taylor)
X
X ("calc-alg-3" calc-curve-fit calc-find-maximum calc-find-minimum
calc-find-root calc-poly-interp)
X
X ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement
calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min
calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part)
X
X ("calc-bin" calc-and calc-binary-radix calc-clip calc-decimal-radix
calc-diff calc-hex-radix calc-leading-zeros calc-lshift-arith
calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix
calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size
calc-xor)
X
X ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd
calc-factorial calc-gamma calc-gcd calc-lcm calc-moebius
calc-next-prime calc-perm calc-prev-prime calc-prime-factors
calc-prime-test calc-random calc-random-again calc-rrandom
calc-shuffle calc-totient)
X
X ("calc-cplx" calc-argument calc-complex-notation calc-i-notation
calc-im calc-j-notation calc-polar calc-polar-mode calc-re)
X
X ("calc-embed" calc-embedded-copy-formula-as-kill
calc-embedded-duplicate calc-embedded-edit calc-embedded-forget
calc-embedded-kill-formula calc-embedded-mark-formula
calc-embedded-new-formula calc-embedded-next calc-embedded-previous
calc-embedded-select calc-embedded-update-formula calc-embedded-word
calc-find-globals calc-show-plain)
X
X ("calc-fin" calc-fin-ddb calc-fin-fv calc-fin-irr calc-fin-nper
calc-fin-npv calc-fin-pmt calc-fin-pv calc-fin-rate calc-fin-sln
calc-fin-syd)
X
X ("calc-forms" calc-convert-time-zones calc-date calc-date-notation
calc-date-part calc-from-hms calc-hms-mode calc-hms-notation
calc-inc-month calc-julian calc-new-month calc-new-week calc-new-year
calc-now calc-time calc-time-zone calc-to-hms calc-unix-time)
X
X ("calc-frac" calc-fdiv calc-frac-mode calc-fraction
calc-over-notation calc-slash-notation)
X
X ("calc-funcs" calc-bernoulli-number calc-bessel-J calc-bessel-Y
calc-beta calc-erf calc-erfc calc-euler-number calc-inc-beta
calc-inc-gamma calc-stirling-number calc-utpb calc-utpc calc-utpf
calc-utpn calc-utpp calc-utpt)
X
X ("calc-graph" calc-graph-add calc-graph-add-3d calc-graph-border
calc-graph-clear calc-graph-command calc-graph-delete
calc-graph-device calc-graph-display calc-graph-fast
calc-graph-fast-3d calc-graph-geometry calc-graph-grid
calc-graph-header calc-graph-hide calc-graph-juggle calc-graph-key
calc-graph-kill calc-graph-line-style calc-graph-log-x
calc-graph-log-y calc-graph-log-z calc-graph-name
calc-graph-num-points calc-graph-output calc-graph-plot
calc-graph-point-style calc-graph-print calc-graph-quit
calc-graph-range-x calc-graph-range-y calc-graph-range-z
calc-graph-show-dumb calc-graph-title-x calc-graph-title-y
calc-graph-title-z calc-graph-view-commands calc-graph-view-trail
calc-graph-zero-x calc-graph-zero-y)
X
X ("calc-help" calc-a-prefix-help calc-b-prefix-help calc-c-prefix-help
calc-d-prefix-help calc-describe-function calc-describe-key
calc-describe-key-briefly calc-describe-variable calc-f-prefix-help
calc-full-help calc-g-prefix-help calc-help-prefix
calc-hyperbolic-prefix-help calc-inv-hyp-prefix-help
calc-inverse-prefix-help calc-j-prefix-help calc-k-prefix-help
calc-m-prefix-help calc-r-prefix-help calc-s-prefix-help
calc-t-prefix-help calc-u-prefix-help calc-v-prefix-help)
X
X ("calc-incom" calc-begin-complex calc-begin-vector calc-comma
calc-dots calc-end-complex calc-end-vector calc-semi)
X
X ("calc-keypd" calc-keypad-menu calc-keypad-menu-back
calc-keypad-press)
X
X ("calc-lang" calc-big-language calc-c-language calc-eqn-language
calc-flat-language calc-fortran-language calc-maple-language
calc-mathematica-language calc-normal-language calc-pascal-language
calc-tex-language calc-unformatted-language)
X
X ("calc-map" calc-accumulate calc-apply calc-inner-product calc-map
calc-map-equation calc-map-stack calc-outer-product calc-reduce)
X
X ("calc-mat" calc-mdet calc-mlud calc-mtrace)
X
X ("calc-math" calc-arccos calc-arccosh calc-arcsin calc-arcsinh
calc-arctan calc-arctan2 calc-arctanh calc-conj calc-cos calc-cosh
calc-degrees-mode calc-exp calc-expm1 calc-hypot calc-ilog
calc-imaginary calc-isqrt calc-ln calc-lnp1 calc-log calc-log10
calc-pi calc-radians-mode calc-sin calc-sincos calc-sinh calc-sqrt
calc-tan calc-tanh calc-to-degrees calc-to-radians)
X
X ("calc-mode" calc-alg-simplify-mode calc-algebraic-mode
calc-always-load-extensions calc-auto-recompute calc-auto-why
calc-bin-simplify-mode calc-break-vectors calc-center-justify
calc-default-simplify-mode calc-display-raw calc-eng-notation
calc-ext-simplify-mode calc-fix-notation calc-full-trail-vectors
calc-full-vectors calc-group-char calc-group-digits calc-infinite-mode
calc-left-justify calc-left-label calc-line-breaking
calc-line-numbering calc-matrix-brackets calc-matrix-center-justify
calc-matrix-left-justify calc-matrix-mode calc-matrix-right-justify
calc-mode-record-mode calc-no-simplify-mode calc-normal-notation
calc-num-simplify-mode calc-point-char calc-right-justify
calc-right-label calc-save-modes calc-sci-notation
calc-settings-file-name calc-shift-prefix calc-symbolic-mode
calc-total-algebraic-mode calc-truncate-down calc-truncate-stack
calc-truncate-up calc-units-simplify-mode calc-vector-braces
calc-vector-brackets calc-vector-commas calc-vector-parens
calc-working)
X
X ("calc-prog" calc-call-last-kbd-macro calc-equal-to
calc-get-user-defn calc-greater-equal calc-greater-than calc-in-set
calc-kbd-break calc-kbd-else calc-kbd-else-if calc-kbd-end-for
calc-kbd-end-if calc-kbd-end-loop calc-kbd-end-repeat calc-kbd-for
calc-kbd-if calc-kbd-loop calc-kbd-pop calc-kbd-push calc-kbd-query
calc-kbd-repeat calc-kbd-report calc-less-equal calc-less-than
calc-logical-and calc-logical-if calc-logical-not calc-logical-or
calc-not-equal-to calc-pass-errors calc-remove-equal calc-timing
calc-user-define calc-user-define-composition calc-user-define-edit
calc-user-define-formula calc-user-define-invocation
calc-user-define-kbd-macro calc-user-define-permanent
calc-user-undefine)
X
X ("calc-rewr" calc-match calc-rewrite calc-rewrite-selection)
X
X ("calc-sel" calc-break-selections calc-clear-selections
calc-copy-selection calc-del-selection calc-edit-selection
calc-enable-selections calc-enter-selection calc-sel-add-both-sides
calc-sel-div-both-sides calc-sel-evaluate calc-sel-expand-formula
calc-sel-mult-both-sides calc-sel-sub-both-sides
calc-select-additional calc-select-here calc-select-here-maybe
calc-select-less calc-select-more calc-select-next calc-select-once
calc-select-once-maybe calc-select-part calc-select-previous
calc-show-selections calc-unselect)
X
X ("calc-sel-2" calc-commute-left calc-commute-right calc-sel-commute
calc-sel-distribute calc-sel-invert calc-sel-isolate
calc-sel-jump-equals calc-sel-merge calc-sel-negate calc-sel-unpack)
X
X ("calc-stat" calc-vector-correlation calc-vector-count
calc-vector-covariance calc-vector-geometric-mean
calc-vector-harmonic-mean calc-vector-max calc-vector-mean
calc-vector-mean-error calc-vector-median calc-vector-min
calc-vector-pop-covariance calc-vector-pop-sdev
calc-vector-pop-variance calc-vector-product calc-vector-sdev
calc-vector-sum calc-vector-variance)
X
X ("calc-store" calc-assign calc-copy-variable calc-declare-variable
calc-edit-AlgSimpRules calc-edit-Decls calc-edit-EvalRules
calc-edit-ExtSimpRules calc-edit-FitRules calc-edit-GenCount
calc-edit-LineStyles calc-edit-PlotRejects calc-edit-PointStyles
calc-edit-TimeZone calc-edit-UnitSimpRules calc-edit-variable
calc-evalto calc-insert-variables calc-let calc-permanent-variable
calc-recall calc-recall-quick calc-store calc-store-concat
calc-store-decr calc-store-div calc-store-exchange calc-store-incr
calc-store-into calc-store-into-quick calc-store-inv calc-store-map
calc-store-minus calc-store-neg calc-store-plus calc-store-power
SHAR_EOF
true || echo 'restore of calc-ext.el failed'
fi
echo 'End of  part 13'
echo 'File calc-ext.el is continued in part 14'
echo 14 > _shar_seq_.tmp
exit 0
exit 0 # Just in case...
--
Kent Landfield                   INTERNET: [e-mail]
Sterling Software, IMD           UUCP:     uunet!sparky!kent
Phone:    [phone]         FAX:      [phone]
Please send comp.sources.misc-related mail to [e-mail].